Script Grafik: "Purzel01"

Script mit Doppelklick oder STRG+R aufrufen!
____________________________________________

ScriptBegin
var Grafik="Script Turtle";

var a=6;    // Quadrat
var d=a*0.13; // Zwischenraum
var x0=-131;  // Startpunkt
var y0=82;
var imax=39;
var jmax=25;
var magicL=3;   // ab Zeile
var magicW=1.6; // 
var magicX=0.1;
var magicY=0.02;

// Farben ----------------------------------
var Hintergrund= "#d2b48c";
var Penfarbe = "black";
var Pen_mm = -1.0;
var RndFarbe1 ="#c2c200"; //"#cba71e"; // "b49007"; 
var RndFarbe2 = "brown";
var Alpha = 120;  // Transparenz 0 - 255


function init()
{
 t.setPage();
 t.setBrush(Hintergrund);
 t.setRndRGB(RndFarbe1,RndFarbe2); 
 t.setRndHeller(80,70);
}


function draw()
{ defQuadrat("Quadrat");

  t.goTo(x0,y0);
  t.draw("Quadrat");
  drawQuadrate("Quadrat");
}


function rndW(w,i,j)
{ if (j<magicL) max=0;
  else max=(j-magicL)*magicW;
  if (j>(magicL*2)) max=1.5*max;
  return t.rndW(-max,max);
} 

function rndX(x,i,j)
{ 
  if (j<magicL) max=0; else max=(j-magicL);
  return x+i*(a+d)+t.rndW(0,max*max*magicX);
} 

function rndY(y,i,j)
{ if (j<magicL) max=0; else max=(j-magicL);
  return y-j*(a+d)+t.rndW(0,max*max*magicY);
} 


function drawQuadrate(Name)
{
  w=0;
  for(i=0; i<imax; i++)
   for(j=0; j<jmax; j++)
   { 
     t.turnTo( rndW(w,i,j));
     t.goTo( rndX(x0,i,j), rndY(y0,i,j));
     
     t.setBrush(t.rndRGB2()); 
     t.draw("Quadrat",false);
   }

}


function defQuadrat(Name)
{ 
  t.turnTo(0);  t.goTo(0,0); t.setNoStyle();
  t.beginPolygon();
  for(i=0; i<4; i++){t.move(a);t.turn(90);}
  t.endPolygon();

  t.setPen(Penfarbe,Pen_mm); t.setBrush(RndFarbe1);
  t.defDraw(Name);
  t.draw("Name");  
 t.msgTurtle();
}




ScriptEnd

